home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1996 April / Macworld (1996-04).dmg / Educational Demos / Encyclopedia of Nature / DATA / contentM.dir / 00133_Script_133 < prev    next >
Text File  |  1995-04-13  |  1KB  |  46 lines
  1. on john2
  2.   
  3.   
  4.   puppetsprite 5, 1
  5.   
  6.   repeat while the mousecast >=119 and the mousecast <=128 and the mouseup 
  7.     set x = the mousecast
  8.     if x <> -1 then
  9.       set the castnum of sprite (x-104) = (x-10)
  10.       set the castnum of sprite 5 to (x + 681)
  11.     end if
  12.     puppetSound "click"
  13.     updatestage
  14.     repeat while the mousecast = x and the mousedown <> 1
  15.     end repeat
  16.     go the frame
  17.   end repeat
  18.   if the mousecast = 800 then teleplay
  19.   
  20.   if the mousedown then
  21.     if the mousecast <= 128 and the mousecast >= 120 then go "e"
  22.     if the mousecast <= 809 and the mousecast >= 801 then go "e"
  23.     if the mousecast = 119 and the castnum of sprite 5 = 800 then go "TVs+"
  24.   end if
  25.   
  26.   go the frame
  27. end
  28.  
  29. on movielistset
  30.   global movielist
  31.   
  32.   set movielist = list("@:ATLAS:01.dir", "@:TWTW:01.dir", "@:stowaway:01title.dir","@:Science:01Start.DIR", "@:NATURE:01Intro.DIR", ¬
  33.   "@:HISTORY:01Hia.dir", "@:MFIAD:01Title.DIR","@:Body:01.DIR", "@:PB:01.DIR", 1)
  34. end
  35.  
  36.  
  37.  
  38.  
  39. on teleplay
  40.   
  41.   --set the castnum of sprite 5 to 800
  42.   go "TVs"
  43.   abort
  44.   
  45. end
  46.